Program test;
var
	a,y : integer;
procedure f(var p,s,f:integer);
var b : integer;
begin
	b:=7;
end;
procedure g;
var c: integer;
begin
	c:=7;
end;
procedure m;
var n: integer;
begin
	n:=7;
end;
function zzz(dodo:integer):integer;
var tmp        : integer;
begin
	tmp:=dodo*dodo;
	zzz:=4;
end;
Begin
a:=3;
(*y:=zzz(7);*)
End.
